home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / grader.arc / GRADES.BAS (.txt)
Encoding:
GW-BASIC  |  1987-01-18  |  1.1 KB  |  51 lines
  1. 1  KEY OFF
  2. 2  PLAY "MB"
  3. 10  CLS
  4. 12  TTL=0:QP=0:ST$="":GPA=0
  5. 15  BS$=CHR$(8)
  6. 20  PRINT "ENTER GRADES A,B,C,D, or F"
  7. 30  PRINT "PRESS 'G' to calculate the Grade point average."
  8. 40  PRINT "<- BACK-ARROW will erase the last entry."
  9. 50  PRINT
  10. 100  X$=INPUT$(1)
  11. 110  IF X$=BS$ THEN GOTO 2000
  12. 120  IF X$="G" THEN GOTO 1000
  13. 125  IF X$<"A" OR X$ > "F" OR X$="E" THEN GOTO 1500
  14. 130  IF X$="A" THEN QP=QP+4
  15. 140  IF X$="B" THEN QP=QP+3
  16. 150  IF X$="C" THEN QP=QP+2
  17. 160  IF X$="D" THEN QP=QP+1
  18. 161  PLAY "T 255"+X$
  19. 162  TTL=TTL+1
  20. 165  ST$=ST$+X$
  21. 170  LOCATE 10,1
  22. 175  PRINT SPACE$(75):LOCATE 10,1
  23. 180  PRINT ST$
  24. 190  GOTO 100
  25. 1000  REM CALCULATE GPA
  26. 1002  IF TTL<1THEN GOTO 10
  27. 1005  GPA=INT(QP/TTL*100+0.5)/100
  28. 1008  G=INT(QP/TTL+0.5): GRADE$=CHR$(69-G)
  29. 1010  LOCATE 18,1
  30. 1015  SOUND 200,5
  31. 1020  PRINT "GPA="GPA" GRADE="GRADE$
  32. 1030  PRINT "Press 'Z' to continue...";
  33. 1040  WR$=INPUT$(1)
  34. 1050  IF WR$="Z" THEN GOTO 10
  35. 1060  GOTO 1040
  36. 1500  REM WRONG LETTER
  37. 1510  LOCATE 22,1
  38. 1520  PRINT"Wrong letter!.... Press 'C' to continue..."
  39. 1522  PRINT "or press 'Q' to quit."
  40. 1525  PLAY "T 100G"
  41. 1540  WR$=INPUT$(1)
  42. 1550  IF WR$="C" THEN LOCATE 22,1 : PRINT SPACE$(75) : GOTO 100
  43. 1555  IF WR$="Q" THEN SYSTEM
  44. 1560  GOTO 1540
  45. 2000  REM BACKSPACE
  46. 2010  IF TTL<1 THEN GOTO 10
  47. 2015  TTL=TTL-1
  48. 2020  QP=QP-(69-ASC(MID$(ST$,LEN(ST$),1)))
  49. 2100  ST$=MID$(ST$,1,LEN(ST$)-1)
  50. 2110  GOTO 170
  51.